home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok82.lha / Mini / txt / Mini.mod < prev    next >
Text File  |  1993-08-15  |  344b  |  14 lines
  1. MODULE Mini;
  2.  
  3. IMPORT Parser, Scanner, F := FileSystem, R := Requests, Arguments;
  4.  
  5. VAR name: ARRAY 80 OF CHAR;
  6.  
  7. BEGIN
  8.   R.Assert(Arguments.NumArgs()=1,"Aufruf: Mini <Quelltext>");
  9.   Arguments.GetArg(1,name);
  10.   R.Assert(F.Open(Scanner.source,name,FALSE),"Text nicht gefunden!");
  11.   Parser.Program;
  12.   IF F.Close(Scanner.source) THEN END;
  13. END Mini.
  14.